object Form1: TForm1 Left = 202 Top = 107 Width = 393 Height = 174 BorderIcons = [biSystemMenu] Caption = 'TSysHotKey demonstration' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 12 Top = 8 Width = 363 Height = 39 Caption = 'Try to close this window using either Alt+F4 or opening the syst' + 'em menu with Alt+Space. You won'#39't succeed because these keys hav' + 'e been redefined using the TSysHotKey component. ' WordWrap = True end object Label2: TLabel Left = 12 Top = 60 Width = 340 Height = 26 Caption = 'As a matter of fact, you won'#39't be able to close any program usin' + 'g Alt+F4 when this program is active. These hotkeys are system-w' + 'ide.' WordWrap = True end object Label3: TLabel Left = 12 Top = 100 Width = 278 Height = 13 Caption = 'P.S. The PrintScreen key also has been redefined..............' end object CheckBox1: TCheckBox Left = 12 Top = 120 Width = 269 Height = 17 Caption = '<---- Click here to activate or deactivate the hotkeys' State = cbChecked TabOrder = 0 OnClick = CheckBox1Click end object SysHotKey1: TSysHotKey Active = True OnHotKey = SysHotKey1HotKey Left = 352 Top = 88 end end